home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / Astromacronomer ••• / BASIC Runtime / BASIC Runtime.rsrc / CODE_22.txt < prev    next >
Text File  |  1986-09-30  |  20KB  |  401 lines
  1. # near model CODE resource
  2. # jump table entries: 4264-4272 (9 of them)
  3. export_533:
  4. 00000000  0A6F 8000 0008           xori.w     [A7 + 0x8], 0x8000
  5. export_534:
  6. 00000006  202F 0004                move.l     D0, [A7 + 0x4]
  7. 0000000A  222F 0008                move.l     D1, [A7 + 0x8]
  8. 0000000E  48E7 3E00                movem.l    -[A7], D2,D3,D4,D5,D6
  9. 00000012  2400                     move.l     D2, D0
  10. 00000014  0882 001F                bclr.b     D2, 0x1F
  11. 00000018  2601                     move.l     D3, D1
  12. 0000001A  0883 001F                bclr.b     D3, 0x1F
  13. 0000001E  B682                     cmp.l      D3, D2
  14. 00000020  6304                     bls        +0x6 /* 00000026 */
  15. 00000022  C141                     exg        D0, D1
  16. 00000024  C543                     exg        D2, D3
  17. label00000026:
  18. 00000026  2803                     move.l     D4, D3
  19. 00000028  4844                     swap.w     D4
  20. 0000002A  0244 7F80                andi.w     D4, 0x7F80
  21. 0000002E  6700 00DC                beq        +0xDE /* 0000010C */
  22. 00000032  B181                     xor.l      D1, D0
  23. 00000034  4444                     neg.w      D4
  24. 00000036  4842                     swap.w     D2
  25. 00000038  D842                     add.w      D4, D2
  26. 0000003A  EE44                     asr        D4.w, 7
  27. 0000003C  0C44 001A                cmpi.w     D4, 0x1A
  28. 00000040  6400 00CA                bcc        +0xCC /* 0000010C */
  29. 00000044  4285                     clr.l      D5
  30. 00000046  2C00                     move.l     D6, D0
  31. 00000048  0286 007F FFFF           andi.l     D6, 0x7FFFFF
  32. 0000004E  08C6 0017                bset.b     D6, 0x17
  33. 00000052  0283 007F FFFF           andi.l     D3, 0x7FFFFF
  34. 00000058  08C3 0017                bset.b     D3, 0x17
  35. 0000005C  7A01                     moveq.l    D5, 0x01
  36. 0000005E  E29D                     ror        D5, 1
  37. 00000060  E8BB                     ror        D3, D4
  38. 00000062  E8BD                     ror        D5, D4
  39. 00000064  5385                     subq.l     D5, 1
  40. 00000066  2805                     move.l     D4, D5
  41. 00000068  4685                     not.l      D5
  42. 0000006A  CA83                     and.l      D5, D3
  43. 0000006C  C684                     and.l      D3, D4
  44. 0000006E  0801 001F                btst.b     D1, 0x1F
  45. 00000072  6604                     bne        +0x6 /* 00000078 */
  46. 00000074  DC83                     add.l      D6, D3
  47. 00000076  6024                     bra        +0x26 /* 0000009C */
  48. label00000078:
  49. 00000078  4485                     neg.l      D5
  50. 0000007A  9D83                     subx.l     D6, D3
  51. label0000007C:
  52. 0000007C  2606                     move.l     D3, D6
  53. 0000007E  8685                     or.l       D3, D5
  54. 00000080  6700 0090                beq        +0x92 /* 00000112 */
  55. label00000084:
  56. 00000084  2606                     move.l     D3, D6
  57. 00000086  0283 FFFF FF00           andi.l     D3, 0xFFFFFF00
  58. 0000008C  660E                     bne        +0x10 /* 0000009C */
  59. 0000008E  0442 0800                subi.w     D2, 0x800
  60. 00000092  4845                     swap.w     D5
  61. 00000094  4846                     swap.w     D6
  62. 00000096  3C05                     move.w     D6, D5
  63. 00000098  4245                     clr.w      D5
  64. 0000009A  60E8                     bra        -0x16 /* 00000084 */
  65. label0000009C:
  66. 0000009C  2606                     move.l     D3, D6
  67. 0000009E  4843                     swap.w     D3
  68. 000000A0  0243 FF00                andi.w     D3, 0xFF00
  69. 000000A4  6610                     bne        +0x12 /* 000000B6 */
  70. label000000A6:
  71. 000000A6  0886 0017                bclr.b     D6, 0x17
  72. 000000AA  6620                     bne        +0x22 /* 000000CC */
  73. 000000AC  0442 0080                subi.w     D2, 0x80
  74. 000000B0  E38D                     lsl        D5, 1
  75. 000000B2  E396                     roxl       D6, 1
  76. 000000B4  60F0                     bra        -0xE /* 000000A6 */
  77. label000000B6:
  78. 000000B6  0642 0080                addi.w     D2, 0x80
  79. 000000BA  E28E                     lsr        D6, 1
  80. 000000BC  E295                     roxr       D5, 1
  81. 000000BE  2606                     move.l     D3, D6
  82. 000000C0  4843                     swap.w     D3
  83. 000000C2  0243 FF00                andi.w     D3, 0xFF00
  84. 000000C6  66EE                     bne        -0x10 /* 000000B6 */
  85. 000000C8  0886 0017                bclr.b     D6, 0x17
  86. label000000CC:
  87. 000000CC  0242 FF80                andi.w     D2, 0xFF80
  88. 000000D0  4842                     swap.w     D2
  89. 000000D2  4242                     clr.w      D2
  90. 000000D4  8486                     or.l       D2, D6
  91. 000000D6  0246 0001                andi.w     D6, 0x1
  92. 000000DA  8A46                     or.w       D5, D6
  93. 000000DC  4283                     clr.l      D3
  94. 000000DE  0685 7FFF FFFF           addi.l     D5, 0x7FFFFFFF
  95. 000000E4  D583                     addx.l     D2, D3
  96. 000000E6  6A0C                     bpl        +0xE /* 000000F4 */
  97. 000000E8  E38A                     lsl        D2, 1
  98. 000000EA  6B26                     bmi        +0x28 /* 00000112 */
  99. label000000EC:
  100. 000000EC  4CDF 007C                movem.l    D2,D3,D4,D5,D6, [A7]+
  101. 000000F0  4EED 013A                jmp        [A5 + 0x13A /* export_35 */]
  102. label000000F4:
  103. 000000F4  2602                     move.l     D3, D2
  104. 000000F6  4843                     swap.w     D3
  105. 000000F8  0243 FF80                andi.w     D3, 0xFF80
  106. 000000FC  6714                     beq        +0x16 /* 00000112 */
  107. 000000FE  0A43 7F80                xori.w     D3, 0x7F80
  108. 00000102  67E8                     beq        -0x16 /* 000000EC */
  109. 00000104  0280 8000 0000           andi.l     D0, 0x80000000
  110. 0000010A  8082                     or.l       D0, D2
  111. label0000010C:
  112. 0000010C  4CDF 007C                movem.l    D2,D3,D4,D5,D6, [A7]+
  113. 00000110  4E75                     rts
  114. label00000112:
  115. 00000112  4280                     clr.l      D0
  116. 00000114  60F6                     bra        -0x8 /* 0000010C */
  117. export_535:
  118. 00000116  202F 0004                move.l     D0, [A7 + 0x4]
  119. 0000011A  222F 0008                move.l     D1, [A7 + 0x8]
  120. 0000011E  48E7 3E00                movem.l    -[A7], D2,D3,D4,D5,D6
  121. 00000122  6A04                     bpl        +0x6 /* 00000128 */
  122. 00000124  0840 001F                bchg.b     D0, 0x1F
  123. label00000128:
  124. 00000128  4840                     swap.w     D0
  125. 0000012A  4841                     swap.w     D1
  126. 0000012C  3401                     move.w     D2, D1
  127. 0000012E  0242 7F80                andi.w     D2, 0x7F80
  128. 00000132  67DE                     beq        -0x20 /* 00000112 */
  129. 00000134  3600                     move.w     D3, D0
  130. 00000136  0243 7F80                andi.w     D3, 0x7F80
  131. 0000013A  67D6                     beq        -0x28 /* 00000112 */
  132. 0000013C  0443 3F00                subi.w     D3, 0x3F00 /* '?\0' */
  133. 00000140  D443                     add.w      D2, D3
  134. 00000142  2600                     move.l     D3, D0
  135. 00000144  0243 007F                andi.w     D3, 0x7F
  136. 00000148  0043 0080                ori.w      D3, 0x80
  137. 0000014C  0241 007F                andi.w     D1, 0x7F
  138. 00000150  0041 0080                ori.w      D1, 0x80
  139. 00000154  E199                     rol        D1, 8
  140. 00000156  3C01                     move.w     D6, D1
  141. 00000158  CCC3                     mulu.w     D6, D3
  142. 0000015A  3801                     move.w     D4, D1
  143. 0000015C  4841                     swap.w     D1
  144. 0000015E  3A01                     move.w     D5, D1
  145. 00000160  C2C3                     mulu.w     D1, D3
  146. 00000162  4843                     swap.w     D3
  147. 00000164  C8C3                     mulu.w     D4, D3
  148. 00000166  CAC3                     mulu.w     D5, D3
  149. 00000168  4846                     swap.w     D6
  150. 0000016A  4283                     clr.l      D3
  151. 0000016C  D881                     add.l      D4, D1
  152. 0000016E  DD43                     addx.w     D6, D3
  153. 00000170  4846                     swap.w     D6
  154. 00000172  4844                     swap.w     D4
  155. 00000174  3604                     move.w     D3, D4
  156. 00000176  4244                     clr.w      D4
  157. 00000178  DA84                     add.l      D5, D4
  158. 0000017A  DD83                     addx.l     D6, D3
  159. 0000017C  4840                     swap.w     D0
  160. 0000017E  6000 FF26                bra        -0xD8 /* 000000A6 */
  161. export_536:
  162. 00000182  202F 0004                move.l     D0, [A7 + 0x4]
  163. 00000186  222F 0008                move.l     D1, [A7 + 0x8]
  164. 0000018A  48E7 3E00                movem.l    -[A7], D2,D3,D4,D5,D6
  165. 0000018E  6A04                     bpl        +0x6 /* 00000194 */
  166. 00000190  0840 001F                bchg.b     D0, 0x1F
  167. label00000194:
  168. 00000194  4840                     swap.w     D0
  169. 00000196  4841                     swap.w     D1
  170. 00000198  3C01                     move.w     D6, D1
  171. 0000019A  0246 7F80                andi.w     D6, 0x7F80
  172. 0000019E  6768                     beq        +0x6A /* 00000208 */
  173. 000001A0  3400                     move.w     D2, D0
  174. 000001A2  0242 7F80                andi.w     D2, 0x7F80
  175. 000001A6  6700 FF6A                beq        -0x94 /* 00000112 */
  176. 000001AA  0446 3E00                subi.w     D6, 0x3E00 /* '>\0' */
  177. 000001AE  9446                     sub.w      D2, D6
  178. 000001B0  0241 007F                andi.w     D1, 0x7F
  179. 000001B4  0041 0080                ori.w      D1, 0x80
  180. 000001B8  2A00                     move.l     D5, D0
  181. 000001BA  0245 007F                andi.w     D5, 0x7F
  182. 000001BE  0045 0080                ori.w      D5, 0x80
  183. 000001C2  E199                     rol        D1, 8
  184. 000001C4  3801                     move.w     D4, D1
  185. 000001C6  4841                     swap.w     D1
  186. 000001C8  E59D                     rol        D5, 2
  187. 000001CA  4845                     swap.w     D5
  188. 000001CC  8AC4                     divu.w     D5, D4
  189. 000001CE  3605                     move.w     D3, D5
  190. 000001D0  3C05                     move.w     D6, D5
  191. 000001D2  4245                     clr.w      D5
  192. 000001D4  C6C1                     mulu.w     D3, D1
  193. 000001D6  9A83                     sub.l      D5, D3
  194. 000001D8  6404                     bcc        +0x6 /* 000001DE */
  195. 000001DA  5346                     subq.w     D6, 1
  196. 000001DC  DA81                     add.l      D5, D1
  197. label000001DE:
  198. 000001DE  2601                     move.l     D3, D1
  199. 000001E0  E28B                     lsr        D3, 1
  200. 000001E2  4846                     swap.w     D6
  201. 000001E4  4246                     clr.w      D6
  202. 000001E6  BA83                     cmp.l      D5, D3
  203. 000001E8  6506                     bcs        +0x8 /* 000001F0 */
  204. 000001EA  9A83                     sub.l      D5, D3
  205. 000001EC  0046 8000                ori.w      D6, 0x8000
  206. label000001F0:
  207. 000001F0  8AC4                     divu.w     D5, D4
  208. 000001F2  DC45                     add.w      D6, D5
  209. 000001F4  3605                     move.w     D3, D5
  210. 000001F6  4245                     clr.w      D5
  211. 000001F8  C6C1                     mulu.w     D3, D1
  212. 000001FA  9A83                     sub.l      D5, D3
  213. 000001FC  6404                     bcc        +0x6 /* 00000202 */
  214. 000001FE  5346                     subq.w     D6, 1
  215. 00000200  DA81                     add.l      D5, D1
  216. label00000202:
  217. 00000202  4840                     swap.w     D0
  218. 00000204  6000 FE96                bra        -0x168 /* 0000009C */
  219. label00000208:
  220. 00000208  4EED 014A                jmp        [A5 + 0x14A /* export_37 */]
  221. export_537:
  222. 0000020C  48E7 D000                movem.l    -[A7], D0,D1,D3
  223. 00000210  222F 0010                move.l     D1, [A7 + 0x10]
  224. 00000214  262F 0014                move.l     D3, [A7 + 0x14]
  225. 00000218  2001                     move.l     D0, D1
  226. 0000021A  4840                     swap.w     D0
  227. 0000021C  0240 7F80                andi.w     D0, 0x7F80
  228. 00000220  6602                     bne        +0x4 /* 00000224 */
  229. 00000222  4281                     clr.l      D1
  230. label00000224:
  231. 00000224  2003                     move.l     D0, D3
  232. 00000226  4840                     swap.w     D0
  233. 00000228  0240 7F80                andi.w     D0, 0x7F80
  234. 0000022C  6602                     bne        +0x4 /* 00000230 */
  235. 0000022E  4283                     clr.l      D3
  236. label00000230:
  237. 00000230  0841 001F                bchg.b     D1, 0x1F
  238. 00000234  0843 001F                bchg.b     D3, 0x1F
  239. 00000238  2001                     move.l     D0, D1
  240. 0000023A  8083                     or.l       D0, D3
  241. 0000023C  0800 001F                btst.b     D0, 0x1F
  242. 00000240  6602                     bne        +0x4 /* 00000244 */
  243. 00000242  C343                     exg        D1, D3
  244. label00000244:
  245. 00000244  B283                     cmp.l      D1, D3
  246. 00000246  55C0                     scs        D0
  247. 00000248  52C1                     shi        D1
  248. 0000024A  E349                     lsl        D1.w, 1
  249. 0000024C  8041                     or.w       D0, D1
  250. 0000024E  0240 0003                andi.w     D0, 0x3
  251. 00000252  E258                     ror        D0.w, 1
  252. 00000254  4CDF 000B                movem.l    D0,D1,D3, [A7]+
  253. 00000258  4E75                     rts
  254. 0000025A  202F 0004                move.l     D0, [A7 + 0x4]
  255. 0000025E  0840 001F                bchg.b     D0, 0x1F
  256. 00000262  4E75                     rts
  257. export_538:
  258. 00000264  48E7 3E00                movem.l    -[A7], D2,D3,D4,D5,D6
  259. 00000268  4280                     clr.l      D0
  260. 0000026A  4286                     clr.l      D6
  261. 0000026C  2A2F 0018                move.l     D5, [A7 + 0x18]
  262. 00000270  6A06                     bpl        +0x8 /* 00000278 */
  263. 00000272  4485                     neg.l      D5
  264. 00000274  08C0 001F                bset.b     D0, 0x1F
  265. label00000278:
  266. 00000278  343C 5B00                move.w     D2, 0x5B00 /* '[\0' */
  267. 0000027C  6000 FDFE                bra        -0x200 /* 0000007C */
  268. export_539:
  269. 00000280  48E7 2A00                movem.l    -[A7], D2,D4,D6
  270. 00000284  242F 0010                move.l     D2, [A7 + 0x10]
  271. 00000288  2202                     move.l     D1, D2
  272. 0000028A  4842                     swap.w     D2
  273. 0000028C  3202                     move.w     D1, D2
  274. 0000028E  0242 007F                andi.w     D2, 0x7F
  275. 00000292  0042 0080                ori.w      D2, 0x80
  276. 00000296  0241 7F80                andi.w     D1, 0x7F80
  277. 0000029A  EE49                     lsr        D1.w, 7
  278. 0000029C  0441 0076                subi.w     D1, 0x76 /* 'v' */
  279. 000002A0  6A02                     bpl        +0x4 /* 000002A4 */
  280. 000002A2  4241                     clr.w      D1
  281. label000002A4:
  282. 000002A4  4842                     swap.w     D2
  283. 000002A6  0C41 0029                cmpi.w     D1, 0x29 /* ')' */
  284. 000002AA  650A                     bcs        +0xC /* 000002B6 */
  285. label000002AC:
  286. 000002AC  2001                     move.l     D0, D1
  287. 000002AE  4CDF 0054                movem.l    D2,D4,D6, [A7]+
  288. 000002B2  4EED 0132                jmp        [A5 + 0x132 /* export_34 */]
  289. label000002B6:
  290. 000002B6  4280                     clr.l      D0
  291. 000002B8  3C01                     move.w     D6, D1
  292. 000002BA  0246 001F                andi.w     D6, 0x1F
  293. 000002BE  6710                     beq        +0x12 /* 000002D0 */
  294. 000002C0  7801                     moveq.l    D4, 0x01
  295. 000002C2  EDBC                     rol        D4, D6
  296. 000002C4  EDBA                     rol        D2, D6
  297. 000002C6  5384                     subq.l     D4, 1
  298. 000002C8  2004                     move.l     D0, D4
  299. 000002CA  C082                     and.l      D0, D2
  300. 000002CC  4684                     not.l      D4
  301. 000002CE  C484                     and.l      D2, D4
  302. label000002D0:
  303. 000002D0  0C41 0020                cmpi.w     D1, 0x20 /* ' ' */
  304. 000002D4  6502                     bcs        +0x4 /* 000002D8 */
  305. 000002D6  C142                     exg        D0, D2
  306. label000002D8:
  307. 000002D8  3C00                     move.w     D6, D0
  308. 000002DA  0246 0001                andi.w     D6, 0x1
  309. 000002DE  8446                     or.w       D2, D6
  310. 000002E0  4286                     clr.l      D6
  311. 000002E2  0682 7FFF FFFF           addi.l     D2, 0x7FFFFFFF
  312. 000002E8  D186                     addx.l     D0, D6
  313. 000002EA  65C0                     bcs        -0x3E /* 000002AC */
  314. 000002EC  4A80                     tst.l      D0
  315. 000002EE  6712                     beq        +0x14 /* 00000302 */
  316. 000002F0  0801 001F                btst.b     D1, 0x1F
  317. 000002F4  670C                     beq        +0xE /* 00000302 */
  318. 000002F6  4480                     neg.l      D0
  319. 000002F8  0C80 8000 0000           cmpi.l     D0, 0x80000000
  320. 000002FE  65AC                     bcs        -0x52 /* 000002AC */
  321. 00000300  6002                     bra        +0x4 /* 00000304 */
  322. label00000302:
  323. 00000302  6BA8                     bmi        -0x56 /* 000002AC */
  324. label00000304:
  325. 00000304  4CDF 0054                movem.l    D2,D4,D6, [A7]+
  326. 00000308  4E75                     rts
  327. export_540:
  328. 0000030A  48E7 3A00                movem.l    -[A7], D2,D3,D4,D6
  329. 0000030E  6152                     bsr        +0x54 /* 00000362 */
  330. 00000310  2C04                     move.l     D6, D4
  331. 00000312  E284                     asr        D4, 1
  332. 00000314  B986                     xor.l      D6, D4
  333. 00000316  0880 0018                bclr.b     D0, 0x18
  334. 0000031A  CC80                     and.l      D6, D0
  335. 0000031C  08C0 0018                bset.b     D0, 0x18
  336. 00000320  E28E                     lsr        D6, 1
  337. 00000322  E28E                     lsr        D6, 1
  338. 00000324  8086                     or.l       D0, D6
  339. 00000326  2C04                     move.l     D6, D4
  340. 00000328  E28E                     lsr        D6, 1
  341. 0000032A  D086                     add.l      D0, D6
  342. 0000032C  6502                     bcs        +0x4 /* 00000330 */
  343. 0000032E  4842                     swap.w     D2
  344. label00000330:
  345. 00000330  4684                     not.l      D4
  346. 00000332  C084                     and.l      D0, D4
  347. 00000334  0280 007F FFFF           andi.l     D0, 0x7FFFFF
  348. 0000033A  4242                     clr.w      D2
  349. 0000033C  8082                     or.l       D0, D2
  350. 0000033E  4CDF 005C                movem.l    D2,D3,D4,D6, [A7]+
  351. 00000342  4E75                     rts
  352. export_541:
  353. 00000344  48E7 3A00                movem.l    -[A7], D2,D3,D4,D6
  354. 00000348  6118                     bsr        +0x1A /* 00000362 */
  355. 0000034A  4684                     not.l      D4
  356. 0000034C  E284                     asr        D4, 1
  357. 0000034E  C084                     and.l      D0, D4
  358. 00000350  4842                     swap.w     D2
  359. 00000352  0280 007F FFFF           andi.l     D0, 0x7FFFFF
  360. 00000358  4242                     clr.w      D2
  361. 0000035A  8082                     or.l       D0, D2
  362. 0000035C  4CDF 005C                movem.l    D2,D3,D4,D6, [A7]+
  363. 00000360  4E75                     rts
  364. fn00000362:
  365. 00000362  202F 0018                move.l     D0, [A7 + 0x18]
  366. 00000366  4840                     swap.w     D0
  367. 00000368  3400                     move.w     D2, D0
  368. 0000036A  0642 0080                addi.w     D2, 0x80
  369. 0000036E  4842                     swap.w     D2
  370. 00000370  3400                     move.w     D2, D0
  371. 00000372  0282 FF80 FF80           andi.l     D2, 0xFF80FF80
  372. 00000378  0040 FF80                ori.w      D0, 0xFF80
  373. 0000037C  4840                     swap.w     D0
  374. 0000037E  3602                     move.w     D3, D2
  375. 00000380  0243 7FFF                andi.w     D3, 0x7FFF
  376. 00000384  EE4B                     lsr        D3.w, 7
  377. 00000386  0443 0078                subi.w     D3, 0x78 /* 'x' */
  378. 0000038A  0C43 0006                cmpi.w     D3, 0x6
  379. 0000038E  6C08                     bge        +0xA /* 00000398 */
  380. 00000390  7606                     moveq.l    D3, 0x06
  381. 00000392  0282 8000 8000           andi.l     D2, 0x80008000
  382. label00000398:
  383. 00000398  6E04                     bgt        +0x6 /* 0000039E */
  384. 0000039A  0242 8000                andi.w     D2, 0x8000
  385. label0000039E:
  386. 0000039E  0C43 0020                cmpi.w     D3, 0x20 /* ' ' */
  387. 000003A2  6504                     bcs        +0x6 /* 000003A8 */
  388. 000003A4  363C 001F                move.w     D3, 0x1F
  389. label000003A8:
  390. 000003A8  7801                     moveq.l    D4, 0x01
  391. 000003AA  E29C                     ror        D4, 1
  392. 000003AC  0803 0004                btst.b     D3, 0x4
  393. 000003B0  6702                     beq        +0x4 /* 000003B4 */
  394. 000003B2  4844                     swap.w     D4
  395. label000003B4:
  396. 000003B4  3C03                     move.w     D6, D3
  397. 000003B6  0246 000F                andi.w     D6, 0xF
  398. 000003BA  ECAC                     lsr        D4, D6
  399. 000003BC  5384                     subq.l     D4, 1
  400. 000003BE  4E75                     rts
  401.